注册，cyl文件："cy/get-blk.cyl"。
从[字符串][位置]处获取数值
	[当前状态]=[开始@#开始]，
	[字符串长度]=[[字符串]长度]，
	遍历：字符串，位置；针对每组索引子项：当前位置，当前字符；执行：
	分类：若[[当前位置]>=[字符串长度]]或者[[当前字符]是任意分隔符]，
		如果[[当前状态]是[整数@#整数]]或者[[当前状态]是[小数@#小数]]或者[[当前状态]是[分数@#分数]]或者[[当前状态]是[指数数@#指数数]]，
			函数返回[,(从[位置]到[当前位置]的[字符串]子串 [当前位置]-[1] 当前状态)]，否则，函数返回[,(错误 当前位置 #^编译期正在定义函数名 规格化["非法数值状态[~a]"][当前状态])]。
	     若[[当前状态]是[开始]]并且[[当前字符]是正负号]，[当前状态]=[正负号@#正负号]；
	     若[[当前状态]是[开始]]并且[[当前字符]是数字]，[当前状态]=[整数]；
	     若[[当前状态]是[正负号]]并且[[当前字符]是数字]，[当前状态]=[整数]；
	     若[[当前状态]是[整数]]并且[[当前字符]是数字]，[当前状态]=[整数]；
	     若[[当前状态]是[整数]]并且[[当前字符]是[小数点@#\.]]，[当前状态]=[小数符号@#小数符号]；
	     若[[当前状态]是[整数]]并且[[当前字符]是[分号@#\/]]，[当前状态]=[分数符号@#分数符号]；
	     若[[当前状态]是[小数符号]]并且[[当前字符]是数字]，[当前状态]=[小数]；
	     若[[当前状态]是[分数符号]]并且[[当前字符]是数字]，[当前状态]=[分数]；
	     若[[当前状态]是[小数]]并且[[当前字符]是数字]，[当前状态]=[小数]；
	     若[[当前状态]是[分数]]并且[[当前字符]是数字]，[当前状态]=[分数]；
	     若[[当前状态]是[整数]]并且[[当前字符]是[幂号@#\e]]，[当前状态]=[指数符号@#指数符号]；
	     若[[当前状态]是[小数]]并且[[当前字符]是[幂号]]，[当前状态]=[指数符号]；
	     若[[当前状态]是[指数符号]]并且[[当前字符]是正负号]，[当前状态]=[指数正负号@#指数正负号]；
	     若[[当前状态]是[指数符号]]并且[[当前字符]是数字]，[当前状态]=[指数数]；
	     若[[当前状态]是[指数正负号]]并且[[当前字符]是数字]，[当前状态]=[指数数]；
	     若[[当前状态]是[指数数]]并且[[当前字符]是数字]，[当前状态]=[指数数]；
	     否则，如果[[当前状态]是[整数]]或者[[当前状态]是[小数]]或者[[当前状态]是[分数]]或者[[当前状态]是[指数数]]，
			函数返回[,(从[位置]到[当前位置]的[字符串]子串 [当前位置]-[1] 当前状态)]，
			函数返回[,(从[位置]到[当前位置]的[字符串]子串 [当前位置]-[1] '非数值)]。
		宏终结语句。
	宏终结语句。
	如果[[当前状态]是[整数]]或者[[当前状态]是[小数]]或者[[当前状态]是[分数]]或者[[当前状态]是[指数数]]，
		,(从[位置]到[字符串长度]的[字符串]子串 字符串长度 当前状态)，否则，,(错误 字符串长度 #^编译期正在定义函数名 规格化["非法数值状态[~a]"][当前状态])。	
[字符串]长度
	(string-length 字符串)。
[字符]是任意分隔符
	[字符]或者是[空格@#\空格]、[回车@#\回车]、[制表符@#\制表符]、[中文句号@#\。]、[中文逗号@#\，]、[中文冒号@#\：]、[中文分号@#\；]、[附着符@#\@]、[全局附着符@#\&]、[左括号@#\(]、[右括号@#\)]、[左中括号@#\[]、[右中括号@#\]]。
[字符]是正负号
	[[字符]是[正号@#\+]]或者[[字符]是[负号@#\-]]。
[字符]是数字
	[字符]或者是[#\0]、[#\1]、[#\2]、[#\3]、[#\4]、[#\5]、[#\6]、[#\7]、[#\8]、[#\9]。
[a]或者是[b]、...
	如果[b]列表为空，#^假，如果[[b]列表长度]==[1]，[a]是[[b]列表首项]，否则，如果[a]是[[b]列表首项]，#^真，(运行列表参数函数 #^编译期正在定义函数 a [b]后续列表)。
[l]列表长度
	(length l)。
[l]列表首项
	(car l)。
[l]后续列表
	(cdr l)。
[l]列表为空
	(null? l)。



